home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / screen / backgr / backgrnd.frm < prev    next >
Text File  |  1994-09-22  |  3KB  |  120 lines
  1. VERSION 2.00
  2. Begin Form frmBackGround 
  3.    BackColor       =   &H00004000&
  4.    ClientHeight    =   2748
  5.    ClientLeft      =   3024
  6.    ClientTop       =   2736
  7.    ClientWidth     =   4368
  8.    Height          =   3168
  9.    Left            =   2976
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   BACKGRND.FRX:0000
  14.    ScaleHeight     =   2748
  15.    ScaleWidth      =   4368
  16.    Top             =   2364
  17.    Width           =   4464
  18. End
  19. Option Explicit
  20.  
  21. Dim mblnIncode%
  22.  
  23. Dim mintColor%
  24. Dim mintStyle%
  25. Dim mintGradiant%
  26.  
  27. Sub Form_Click ()
  28.  
  29. On Error Resume Next
  30.  
  31. frmChooser.optColor(mintColor).Value = True
  32. frmChooser.optStyle(mintStyle).Value = True
  33. frmChooser.txtGradiant = mintGradiant
  34.  
  35. If mintStyle Mod 2 Then frmChooser.chkInvert.Value = True
  36.  
  37. frmChooser.Show 1
  38.  
  39. Screen.MousePointer = 11
  40.  
  41. If frmChooser.fraColors.Tag = 4 Then
  42.     frmBackGround.Picture = LoadPicture("Custom.bmp")
  43. ElseIf frmChooser.chkPalette = 1 Then
  44.     frmBackGround.Picture = LoadPicture("59All.bmp")
  45. Else
  46.     Select Case frmChooser.fraColors.Tag
  47.         Case 0:
  48.             frmBackGround.Picture = LoadPicture("256Red.bmp")
  49.             glngFrom = RGB(255, 0, 0)
  50.             glngTo = 0
  51.         Case 1:
  52.             frmBackGround.Picture = LoadPicture("256Blue.bmp")
  53.             glngFrom = RGB(0, 0, 255)
  54.             glngTo = 0
  55.         Case 2:
  56.             frmBackGround.Picture = LoadPicture("256Green.bmp")
  57.             glngFrom = RGB(0, 255, 0)
  58.             glngTo = 0
  59.         Case 3:
  60.             frmBackGround.Picture = LoadPicture("256Prpl.bmp")
  61.             glngFrom = RGB(255, 0, 255)
  62.             glngTo = 0
  63.     End Select
  64. End If
  65.  
  66.  
  67. 'frmBackGround.Refresh
  68.     mintGradiant = frmChooser.txtGradiant
  69.     mintColor = Val(frmChooser.fraColors.Tag)
  70.     frmChooser.optColor(mintColor).Value = False
  71.     mintStyle = Val(frmChooser.fraStyle.Tag)
  72.     If frmChooser.chkInvert.Value Then
  73.         Call DrawBackGround(Me, "BackGround Style", glngTo, glngFrom, mintStyle, mintGradiant)
  74.     Else
  75.         Call DrawBackGround(Me, "BackGround Style", glngFrom, glngTo, mintStyle, mintGradiant)
  76.     End If
  77.  
  78. Screen.MousePointer = 0
  79.  
  80. End Sub
  81.  
  82. Sub Form_KeyPress (keyascii As Integer)
  83.  
  84. If keyascii = 27 Then Unload Me
  85.  
  86. End Sub
  87.  
  88. Sub Form_Load ()
  89.  
  90. Dim i%
  91.  
  92. mblnIncode = True
  93.     mintColor = 0
  94.     mintStyle = 0
  95.     mintGradiant = 64
  96.  
  97.     Me.Left = 0
  98.     Me.Top = 0
  99.     Me.Width = Screen.Width
  100.     Me.Height = Screen.Height - Screen.TwipsPerPixelY * 100
  101.  
  102.     glngFrom = RGB(0, 0, 0)
  103.     glngTo = RGB(255, 0, 0)
  104. mblnIncode = False
  105.  
  106. End Sub
  107.  
  108. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  109.  
  110. Unload frmChooser
  111.  
  112. End Sub
  113.  
  114. Sub Form_Resize ()
  115.  
  116. If Not mblnIncode Then Call DrawBackGround(Me, "BackGround Style ", glngFrom, glngTo, mintStyle, mintGradiant)
  117.  
  118. End Sub
  119.  
  120.